;;;; Created on 2008-07-24 13:28:07

(push
 (merge-pathnames
  (make-pathname
   :directory '(:relative ".."))
  (make-pathname
   :directory (pathname-directory *load-truename*)
   :host (pathname-host *load-truename*)
   :device (pathname-device *load-truename*)))
 asdf:*central-registry*)

(asdf:operate 'asdf:load-op 'cldoc)
(asdf:operate 'asdf:load-op 'jacolib)

(cldoc:extract-documentation 'cldoc:html "jacolib"
       (asdf:find-system 'jacolib)
       :table-of-contents-title
       "JaCoLiB")

(quit)
